home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992…ugust: Hack to the Future / ADC Developer CD (1992-08) (''Hack To The Future'')_iso / Dev.CD 199208.iso / System Software / U.S. 7.0.1 / Net Install 7.0.1 / Printing / LaserWriter / LaserWriter.rsrc / STR#_-8153.txt < prev    next >
Encoding:
Text File  |  1991-04-25  |  2.3 KB  |  138 lines

  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11. cleartomark
  12.  
  13.  %endType1
  14.  
  15. end
  16.  
  17.  
  18.  
  19. 0000000000000000000000000000000000000000000000000000000000000000
  20.  
  21.  
  22. end
  23. end
  24. readonly put
  25. noaccess put
  26. dup /FontName get exch definefont pop
  27. mark currentfile closefile
  28.  
  29.  
  30. /.notdef 8 RD 
  31.  
  32.  ND
  33.  
  34.  
  35.  RD 
  36.  
  37.  dict dup begin
  38.  
  39.  
  40. /BlueValues[]def
  41. /MinFeature{16 16}def
  42. /password 5839 def
  43. /Subrs 1 array def
  44. 2 index /CharStrings 
  45.  
  46. dup/Private 8 dict dup begin
  47. /RD{string currentfile exch readstring pop}executeonly def
  48. /ND{noaccess def}executeonly def
  49. /NP{noaccess put}executeonly def
  50.  
  51.  
  52. /FontType 1 def
  53. /UniqueID 16#^h def
  54. currentdict
  55. currentfile eexec
  56.  
  57.  
  58.  
  59. /FontBBox{^i ^i ^i ^i}def
  60.  
  61.  
  62. %beginType1
  63. truedictknown type42known or not( %endType1)exch fcheckload
  64. /FontMatrix [1 ^i div 0 0 1 ^i div 0 0] def
  65.  
  66.  
  67.  
  68. %beginsfntdef
  69. truedictknown type42known or( %endsfntdef)exch fcheckload
  70. currentdict dup/FontName get exch definefont pop
  71.  
  72.  %endsfntdef
  73.  
  74.  
  75.  
  76. {exch pop TrueDict begin /bander load cvlit exch TrueState render end}ifelse end} bind def
  77.  
  78.  
  79.  %endsfntBC
  80.  
  81.  
  82.  
  83. /BuildChar{exch begin Encoding 1 index get CharStrings dup 2 index known{exch}{exch pop /.notdef}ifelse get dup xcheck{currentdict systemdict begin begin exec end end}
  84.  
  85. /TrueState ^i string def
  86. TrueDict begin sfnts save 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt cvi 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt cvi 3 -1 roll restore TrueState initer end
  87.  
  88.  
  89. %beginsfntBC
  90. truedictknown type42known not and ( %endsfntBC)exch fcheckload
  91.  
  92.  
  93.  
  94. end readonly def
  95.  
  96.  %endsfnt
  97.  
  98.  
  99.  
  100.  
  101.  
  102. ]def
  103.  
  104. /CharStrings ^i dict dup begin
  105.  
  106. /FontType type42known{42}{3}ifelse def
  107. /UniqueID 16#^h def
  108. /sfnts[
  109.  
  110. /FontMatrix [1 0 0 1 0 0] def
  111. /FontBBox[^i ^i 1 index div ^i 2 index div ^i 3 index div ^i 5 -1 roll div]cvx def
  112.  
  113.  
  114. %beginsfnt
  115. truedictknown type42known or( %endsfnt)exch fcheckload
  116.  
  117.  
  118. /truedictknown userdict/TrueDict known{TrueDict dup /initer known 1 index /render known 2 index /imagemaskwrapper known 4 -1 roll /bander known and and and}{false}ifelse def
  119.  
  120.  
  121. userdict/type42known known not{/type42known systemdict/resourcestatus known{42/FontType resourcestatus{pop pop true}{false}ifelse}{false}ifelse def}if
  122.  
  123.  
  124. /fcheckload{{pop}{save 3 dict begin/mystring 2050 string def exch/endstring exch def{currentfile mystring readline not{stop}if endstring eq{exit}if}loop end restore}ifelse}bind def
  125.  
  126.  
  127. ] readonly def
  128. /PaintType 0 def
  129.  
  130.  
  131. 25 dict begin
  132. /FontName /^p def
  133. /Encoding [
  134.  
  135. %!PS-TrueTypeFont-^d-^d-1
  136.  
  137.  
  138.